| Tandem's Log |
| Created: 5/31/2007 5:53:03 PM |
|
| Tue 10/09/2007 17:46:15 jim Programming Manuals | |||||||||||||||||||
| Wed 09/26/2007 22:21:12 jim To find out what Tandem release you are on... | |||||||||||||||||||
TACL> SYSINFO I've worked on maybe 30 Tandem computers And I never cared what system I was on, unless I was doing a sysgen, then you have to read the Softdocs. But the question always comes up in the interviews "Are you familiar with the X-Series?" If they ask me this, I always want to say, "Oh my yes, that was my favorite processor!". And I'll think, "Yeppers, that's the release that changed almost nothing that I care about.". The Tandem has remained pretty consistant over the decades. Thats what I really like about it. lol | |||||||||||||||||||
| Mon 09/17/2007 22:09:47 jim Tandem Shops | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Fri 06/01/2007 05:49:29 Jim Tandem Technical Documents | |||||||||||||||||||
| Thu 05/31/2007 15:06:26 Tandem Sample Server | |||||||||||||||||||
IDENTIFICATION DIVISION.
PROGRAM-ID. EXAMPLE-SERVER.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. TANDEM/16.
OBJECT-COMPUTER. TANDEM/16.
INPUT-OUTPUT SECTION.
FILE-CONTROL.
SELECT MESSAGE-IN, ASSIGN TO $RECEIVE FILE STATUS IS RECEIVE-FILE-STATUS.
SELECT MESSAGE-OUT, ASSIGN TO $RECEIVE FILE STATUS IS RECEIVE-FILE-STATUS.
RECEIVE-CONTROL. TABLE OCCURS 5 TIMES.
DATA DIVISION.
FILE SECTION.
FD MESSAGE-IN LABEL RECORDS ARE OMITTED.
01 ENTRY-MSG.
02 PW-HEADER.
04 REPLY-CODE PIC S9(4) COMP.
04 FUNCTION-CODE PIC XX.
02 MESSAGE-NUMBER PIC 9.
FD MESSAGE-OUT LABEL RECORDS ARE OMITTED RECORD CONTAINS 1 TO 68 CHARACTERS.
01 ENTRY-REPLY.
02 PW-HEADER.
04 REPLY-CODE PIC S9(4) COMP. | |||||||||||||||||||
| Thu 05/31/2007 15:05:45 Tandem Sample Requester | |||||||||||||||||||
SCREEN COBOL - REQUESTER PROGRAM IDENTIFICATION DIVISION.
PROGRAM-ID. EXAMPLE-SCREEN-PROGRAM.
ENVIRONMENT DIVISION.
CONFIGURATION SECTION.
SOURCE-COMPUTER. T16.
OBJECT-COMPUTER. T16,
TERMINAL IS T16-6520.
SPECIAL-NAMES.
F1-KEY IS F1, F2-KEY IS F2, F15-KEY IS F15, F16-KEY IS F16
SF1-KEY IS SF1, SF16-KEY IS SF16, ATTENTION IS REVERSE.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 WS.
02 ERROR-MSG PIC X(64).
01 EXIT-FLAG PIC 9 VALUE 0.
88 EXIT-PROGRAM VALUE 1.
01 SEND-ERROR-FLAG PIC 99.
01 ENTRY-MSG.
02 PW-HEADER.
04 REPLY-CODE PIC S9(4) COMP.
04 FUNCTION-CODE PIC XX.
02 MESSAGE-NUMBER PIC 9.
01 ENTRY-REPLY.
02 PW-HEADER.
04 REPLY-CODE PIC S9(4) COMP.
04 FILLER PIC X(2).
02 SERVER-RECORD PIC X(64).
01 ERROR-REPLY.
02 REPLY-CODE PIC 9(4) COMP.
02 FILLER PIC X(2).
02 ERROR-CODE PIC 999 COMP.
SCREEN SECTION.
01 EXAMPLE-SCREEN BASE SIZE 24, 80.
03 FILLER AT 1, 20 VALUE "EXAMPLE SCREEN COBOL PROGRAM".
03 FILLER AT 10, 1 VALUE "MESSAGE NUMBER :".
03 MESSAGE-NUMBER AT 10, * + 2 PIC 9,
USING MESSAGE-NUMBER OF ENTRY-MSG.
03 MESSAGE-TEXT AT 12, 1 PIC X(64) FROM SERVER-RECORD OF ENTRY-REPLY.
03 FILLER AT 21, 15 VALUE "F1 - READ F16 - EXIT PROGRAM".
03 ERROR-MSG AT 24, 2 PIC X(64) ADVISORY FROM ERROR-MSG OF WS.
PROCEDURE DIVISION.
A-MAIN.
DISPLAY BASE EXAMPLE-SCREEN.
MOVE 0 TO MESSAGE-NUMBER OF ENTRY-MSG.
DISPLAY MESSAGE-NUMBER OF EXAMPLE-SCREEN.
PERFORM CASE-MANAGER UNTIL EXIT-PROGRAM.
A-EXIT.
EXIT PROGRAM.
CASE-MANAGER.
ACCEPT MESSAGE-NUMBER OF EXAMPLE-SCREEN | |||||||||||||||||||
| << 10/2006 < 05/2007 Calendar 11/2007 > 10/2008 >> | Sign InView Other Logs |